home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh3x / sh35.d64 / demo verschieb. (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  1KB  |  28 lines
  1. 1 REM *********************************
  2. 2 REM *                               *
  3. 3 REM *          PROGRAMM  2          *
  4. 4 REM *                               *
  5. 5 REM *   ERSTELLEN UND AUFRUF EINES  *
  6. 6 REM *        HILFSBILDSCHIRMES      *
  7. 7 REM *                               *
  8. 8 REM * HEIMO PONNATH    HAMBURG 1985 *
  9. 9 REM *********************************
  10. 10 PRINTCHR$(147):POKE785,0:POKE786,96:GOTO30
  11. 15 REM -------- UP CURSOR SETZEN ------
  12. 20 POKE211,SP:POKE214,Z:SYS58640:RETURN
  13. 25 REM- ERSTELLEN DES HILFSBILDSCHIRMES-
  14. 30 Z=1:SP=1:GOSUB20:PRINT"**************************************"
  15. 40 Z=21:SP=1:GOSUB20:PRINT"**************************************"
  16. 50 Z=10:SP=7:GOSUB20:PRINT"TEST FUER DIE VERSCHIEBUNG"
  17. 55 REM ---- AUFRUF ZUM VERSCHIEBEN ----
  18. 60 A=USR(DUMMY)
  19. 65 REM ---BILDSCHIRM NEU BESCHREIBEN---
  20. 70 GETA$:IFA$=""THEN70
  21. 80 PRINTCHR$(147):Z=2:SP=2:GOSUB20:PRINT"JETZT SOLLTE DER ALTE BILDSCHIRM"
  22. 90 Z=4:SP=2:GOSUB20:PRINT"UNTER DAS KERNAL-ROM GESCHOBEN SEIN"
  23. 100 PRINT:PRINT:PRINT" -- JEDER  USR-AUFRUF HOLT DEN --"
  24. 110 PRINT" -- HILFSBILDSCHIRM WIEDER .   --"
  25. 120 PRINT" -- AUCH IM DIREKT-MODUS       --"
  26. 130 PRINT:PRINT:PRINT"  PROBIEREN SIE MAL: A=USR(1) [RETURN]"
  27. 140 Z=19:SP=0:GOSUB20:END
  28.